powered by
"peek_front"(x, ...) <- value
empty
peek_front.rdeque
d <- rdeque() d <- insert_front(d, data.frame(a = 1, b = 1)) d <- insert_front(d, data.frame(a = 1, b = 1)) peek_front(d)$a <- 100 print(d) peek_front(d) <- data.frame(a = 100, b = 100) print(d)
Run the code above in your browser using DataLab